From: Eli Zaretskii Date: Thu, 25 Apr 2024 16:34:42 +0000 (+0300) Subject: Fix 'mode-line-right-align-edge' with asymmetrical margins X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~1776 X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=98649236f5eb1d89a60ebb9cc06c71f410f6b347;p=emacs.git Fix 'mode-line-right-align-edge' with asymmetrical margins * lisp/bindings.el (mode--line-format-right-align): Fix alignment when window-margins are different on each side of the window. Suggested by Charles Gonnaud . (Bug#70485) --- diff --git a/lisp/bindings.el b/lisp/bindings.el index 50af32076a3..5a8c7cfafd7 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -381,7 +381,7 @@ the symbol `mode-line-format-right-align' is processed by `(space :align-to (,(- (window-pixel-width) (window-scroll-bar-width) (window-right-divider-width) - (* (or (cdr (window-margins)) 1) + (* (or (car (window-margins)) 0) (frame-char-width)) ;; Manually account for value of ;; `mode-line-right-align-edge' even